source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/BGH/BGH Annual Gini.R')
g = aggregate(d, list(d$Year), FUN = ineq)
View(g)
boxplot(g$Pay)
View(g)
boxplot(g, ylim = c(0.1,0.3))
boxplot(g$Pay, ylim = c(0.1,0.3))
boxplot(g$Pay, ylim = c(0.15,0.25))
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
View(final)
level = mean$Level
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
View(final)
hist(g.inner)
hist(g.inner, xlim = c(0,0.2), breaks = 100)
hist(result$g.inner, xlim = c(0,0.2), breaks = 100)
hist(final$g.inner, xlim = c(0,0.2), breaks = 100)
View(final)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Annual Gini.R')
plot(g$Pay)
View(g)
remove = c(86,87, 88)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
library(readr)
library(ineq)
d = read_csv("BGH.csv")
d = data.frame(Year = d$year, Level = d$level, Pay = d$salary)
d = na.omit(d)
y = sort(unique(d$Year))
l = length(y)
final = NULL
for(i in 1:l){
d.sub = subset(d, d$Year == y[i] )
mean = aggregate(d.sub, by = list(d.sub$Level), FUN = mean)
g = aggregate(d.sub, by = list(d.sub$Level), FUN = ineq)
#g = g[g$Pay>0,]
level = mean$Level
g.inner = g$Pay
mean.level = mean$Pay
result = data.frame(Year = y[i], level, mean.level, g.inner)
final = rbind(final, result)
}
remove = c(86,87, 88)
final = final[! final$Year %in% remove]
final = final[! final$Year %in% remove,]
View(final)
write_csv(final, "BGH Levels.csv")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/BGH/BGH Level Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Heyman/Heyman Analysis.R')
setwd("~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Heyman")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
View(H)
View(output)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
g.outer = ineq(output$Mean)
g.inner = mean(output$Gini)
g.ratio = g.outer/g.inner
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Model/Mueller Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
H_heyman = read.csv("Heyman Gini Ratio.csv")
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Merge Data/Data Merge.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Merge Data/Data Merge.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Boxplots II.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
View(output)
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
View(d)
d = rbind(ariga, bell, eriksson, heyman, leonard, main, mueller, rajan, tao)
View(d)
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Data Merge.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Data Merge.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
setwd("~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies")
d = read_csv(d, "Aggregate Data.csv")
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
View(d)
View(ariga)
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Aggregate.R')
View(d)
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Global Gini")
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Global Gini")
gini.nation = read.csv("Gini.csv") %>%  na.omit
library(ineq)
library(NORMT3)
library(ggplot2)
library(grid)
library(readr)
library(dplyr)
library(data.table)
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Global Gini")
gini.nation = read.csv("Gini.csv") %>%  na.omit
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Productivity.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Subordinates Gini.R')
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Mueller/Results")
m = read_csv("Mueller Global Ineq.csv")
View(m)
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman")
h = read_csv("Global Gini.csv")
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
g = read_csv("Gini.csv") %>% na.omit()
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
g.sweden = subset(g, g$`Country Name` == "Sweden")
boxplot(g.sweden)
boxplot(g.sweden$Gini)
View(g)
setwd("/home/blair/Desktop/Empirical Research/Income Distribution/Global Gini")
g = read.csv("Gini.csv") %>% na.omit()
g.sweden = subset(g, g$`Country Name` == "Sweden")
View(g)
g = read.csv("Gini.csv", stringsAsFactors = F) %>% na.omit()
g.sweden = subset(g, g$`Country Name` == "Sweden")
boxplot(g.sweden$Gini)
View(g)
View(g)
g = read.csv("Gini.csv", stringsAsFactors = F) %>% na.omit()
g.sweden = subset(g, g$`Country Name` == "Sweden")
g.sweden = subset(g, g$Country.Name == "Sweden")
boxplot(g.sweden$Gini)
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Plots/Group Income Effect/Mueller Ineq.R')
source('~/Desktop/Empirical Research/Income Distribution/Gini Ratio/Hierarchical Levels/Empirical/Aggregate Studies/Heyman/Heyman Analysis.R')
